home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
text
/
edit
/
BlacksEditor.lha
/
BlacksEditor
/
Rexx
/
AddChars.bed
next >
Wrap
Text File
|
1997-12-03
|
594b
|
48 lines
/*
** $VER: AddChars.bed 1.0 (02.01.96)
**
** Add characters at the start of lines
**
** Modified by Marco Negri
*/
OPTIONS RESULTS
PARSE ARG ch
IF ch = "" THEN DO
RequestStr PROMPT '"Chars to add?"'
IF RC ~= 0 THEN EXIT 5
ch = RESULT
END
SetStatusBar "Adding characters..."
GetBlkDims
PARSE VAR RESULT mode . start . end
SetDisplayLock ON
SetBookmark 0
IF mode=ON THEN DO
MarkBlk
Move start 1
num = end-start+1
END; ELSE DO
MoveSOF
num = 0
END
RecordMacro Quiet
MoveSOL
Text '"' || ch || '"'
MoveDown
EndMacro
PlayMacro num
MoveBookmark 0
ClearBookmark 0
SetDisplayLock OFF